home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 April / EnigmA AMIGA RUN 26 (1998)(G.R. Edizioni)(IT)[!][issue 1998-04].iso / earkit / lha-archives / amterm11.lha / AmTerm / Install_AmTerm < prev    next >
Text File  |  1997-02-04  |  15KB  |  361 lines

  1. ;******************************************************************************
  2. ;      ____           ______              
  3. ;     / __ \         /_  __/             
  4. ;    / /_/ /_   _     / /  ______ _____ _   _
  5. ;   / __  // \_/ \   / /  / ____// .__// \_/ \
  6. ;  / / / // /__/ /  / /  / __/_ / /   / /__/ /
  7. ; /_/ /_//_/  /_/  /_/  /_____//_/   /_/  /_/
  8. ;
  9. ; $VER: 0.90 (February-04-1997) 
  10. ; AmTerm ©1996-1997 by Mathias Mischler
  11. ; AmTerm Installer ©1996-1997 by Robert C. Reiswig 
  12. ;
  13. ; If you wish to use any part of this installer you must ask. May not be 
  14. ; integrated/placed into any other package. Changes, suggestions or problems:
  15. ; rcr@netcom.com
  16. ;******************************************************************************
  17.  
  18. ;*** System Stuff ***
  19. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  20. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  21. (set osver (/ (getversion "LIBS:version.library") 65536))
  22. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  23. (set fastmem (- totmem graphmem))
  24.  
  25. (if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
  26. (if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
  27. (if (= osver 41) (set workbench "4.0")) 
  28.  
  29. (set cpu (database "cpu"))
  30. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  31. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  32. (if (= cpu 68040) (set #cpu 4)) (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  33.  
  34. (set vernum1 (getversion "AmTerm"))
  35. (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  36. (set AmTermver (cat ver1 "." rev1))
  37.  
  38. (set mfound 0) (set newicon1 1) 
  39. (set keeper 1) (set firsttime 0)
  40.  
  41. ;********************************************************************
  42. ; English Strings
  43. ;********************************************************************
  44. (set #about (cat "\n\n\nWelcome to\n\nAmTerm " AmTermver "\n\nCopyright © 1996-1997 by\n\nMathias Mischler\n") )
  45. (set #nomui (cat "\n\nAmTerm uses Magic User Interface (MUI).\n\nThe installer has not found MUI: to be assigned, "
  46.                  "therefore you AmTerm will not work correctly.  You will need to install "
  47.                  "MUI before running AmTerm."
  48.             )
  49. )
  50. (set #whereAmTerm "Where do you wish to install AmTerm. A directory called 'AmTerm' will be created if one is not there. If a copy of AmTerm is found it will be backed up.")
  51. (set muiver "No Version Installed")
  52. (set #newermui "\nAmTerm needs version 3.0 or higher of MUI installed to work correctly.\n\nNow would be a good time to Upgrade!\n\nYou can find mui33usr.lha on Aminet in dev/gui\n\nIt looks like you have: \n\n")
  53. (set #need-os "\n\nThe 68020 version of AmTerm needs version 3.0 or higher of the Amiga OS installed to work correctly.\n\n It looks like you have: \n\n")
  54. (set #000used "\n\nThe 68000 version will be installed.") 
  55. (set #filethere1 "\n\nThe installer has found AmTerm version ")
  56. (set #filethere2 " at ")
  57. (set #filethere3 "\n\nThe file will be renamed to ")
  58. (set #filethere4 " and it will then be moved to ")
  59. (set #backuptoXXX "Back-UP to file named 'AmTerm")
  60. (set #copyover "Copy Over Old Version")
  61. (set #AmTermfound "\nThe Installer has found a copy of AmTerm already installed. What do you want to do?\n")
  62. (set #askcpu "\nCPU Check: What CPU does the machine have that you are installing AmTerm on? The installer has found:\n")
  63. (set #newicon "\nDo you wish to copy over The AmTerm Icon from the archive? If you have any ToolTypes already set you should select no.\n")
  64. (set #nonewicon  "No  - ToolTypes already set.")
  65. (set #yesnewicon "Yes - Copy over Icon.")
  66. (set #pickicon "\nAmTerm has 3 different icons you can use choose from. Which one would you like to use?\n")
  67. (set #nomultiview (cat "The installer could not find multiview or you are running on a 2.x Amiga. "
  68.                        "The AmTerm Installer will let you choose between 3 different icon to use. Their "
  69.                        "names are:\n\n'AmTerm - Default'\n'AmTerm2 - Globe'\n'AmTerm3 - 4 Faces'\n\n"
  70.                        "You can use a picture viewer to look at the '3Icons.iff' to see the choices side-by-side, "
  71.                        "or you can just look in the drawer from where you are installing AmTerm from."
  72.                   )
  73. )
  74.  
  75. (set #oktodelete1 "\nIs it ok to delete the older AmTerm binary so that the AmTerm Directory can be made?\n")
  76. (set #oktodelete2 "\nIs it ok to delete the older _renamed_ AmTerm binary so that the AmTerm Directory can be made?\n")
  77. (set #ifyoulike (cat "If you like AmTerm you might want to take a look at AmFTP.  It Includes the following:\n\nHigh speed asynchronous transfers for maximum efficiency, "
  78.                      "Batch download facility, Resume partially received files, FTP-Server Phonebook, Full ADT Support, Full ARexx support, Archie search engine, "
  79.                      "and much more!\n\nAmFTP can be found on Aminet in comm/tcp or\nhttp://www.vapor.com/AmFTP/"
  80.                 )
  81. )
  82.  
  83. (set #whatdocs "\nWhat AmTerm documentation would you like to install?\n")
  84. (set #wheredocs "Where would you like the AmTerm documentation you selected to be installed?")
  85. (set #nofounddocs "\n\nThe Docs that are listed below, from the ones that you selected,  were not found in the AmTerm archive. You may need to get the complete archive from the support site.")
  86. (set #updatingmuic "\nUpdating the MUI Classes if needed.\n\n(#?.mcc & #?.mcp)")
  87. (set #nomuiarc "\nThe installer cou/ld not find the MUI dir in the archive. Because of this the MUI Classes used by AmTerm were not installed.\n\n If you are Updating AmTerm then this is not a problem. If it is your first time installing AmTerm you will need to get an archive with these files.")
  88. (set #newermui "\nAmTerm needs version 3.3 or higher of MUI installed to work correctly.\n\nNow would be a good time to Upgrade!\n\nYou can find mui33usr.lha on Aminet in dev/gui\n\nIt looks like you have: \n\n")
  89. (set #nompc "\nThe .MCC files for AmTerm can not be installed to 'mui:libs/mui'")
  90.  
  91. (set #byebye (cat "\nAmTerm Install Complete!\n\n" ))
  92. ;********************************************************************
  93. ; Hello
  94. ;********************************************************************
  95. (message #about)
  96. (welcome) 
  97.  
  98. ;********************************************************************
  99. ; MUI installed?
  100. ;********************************************************************
  101. (if (< (exists "mui:") 2)  (message #nomui) )
  102.  
  103. ;********************************************************************
  104. ; Ask where to put AmTerm & Make dir if needed
  105. ;********************************************************************
  106. (set Package (getassign "AmiTCP"))
  107. (if (= Package "") (set Package (getassign "Inet")) )
  108.  
  109. (set AmTermdir  (askdir (prompt #whereAmTerm)
  110.                (help   #whereAmTerm)
  111.                     (default Package)
  112.                )  
  113. )
  114.  
  115. (set where AmTermdir)
  116.  
  117. (if (= 1 (exists (tackon where "AmTerm") ) ) 
  118.   (
  119.     (set vernum1 (getversion (tackon where "AmTerm") ))
  120.     (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  121.     (set AmTerm_old (cat ver1 "." rev1))
  122.  
  123.     (message (cat #filethere1 ver1 "." rev1 #filethere2 where #filethere3 
  124.                   (cat "AmTerm" AmTerm_old) #filethere4 (tackon AmTermdir "AmTerm") )
  125.     )
  126.     
  127.  
  128.     (copyfiles (source (tackon where "AmTerm"))
  129.                (dest where) 
  130.                (infos)
  131.                (newname (cat "AmTerm" AmTerm_old))
  132.     )
  133.     
  134.     (delete (tackon AmTermdir "AmTerm") (prompt #oktodelete1) (help #oktodelete1) (confirm) (infos)) 
  135.     
  136.  
  137.     (if (< (exists (tackon AmTermdir "AmTerm")) 2) (makedir (tackon AmTermdir "AmTerm") (infos)) )    
  138.  
  139.     (copyfiles (source (tackon where (cat "AmTerm" AmTerm_old) ))
  140.                        (dest (tackon AmTermdir "AmTerm")) 
  141.                        (infos)
  142.                
  143.     )
  144.  
  145.     (delete (tackon where (cat "AmTerm" AmTerm_old)) (prompt #oktodelete2) (help #oktodelete2) (confirm) (infos) ) 
  146.  
  147.     ;(set firsttime 1)
  148.  
  149.   )
  150. )
  151.  
  152. (if (< (exists (tackon AmTermdir "AmTerm")) 2) (makedir (tackon AmTermdir "AmTerm") (infos)) )
  153. (set where (tackon AmTermdir "AmTerm"))
  154. (set @default-dest where)
  155.  
  156. ;********************************************************************
  157. ; Check for AmTerm020 requs
  158. ;********************************************************************
  159. (set ver 0)
  160. (if (exists "mui:mui") 
  161.  (
  162.   (set vernum (getversion "mui:mui") )
  163.   (set ver (/ vernum 65536)) (set rev (- vernum (* ver 65536) ) )
  164.  
  165.   (if (= ver 7) (set muiver "2.0") )   (if (= ver 8) (set muiver "2.1") )
  166.   (if (= ver 9) (set muiver "2.2") )   (if (= ver 10) (set muiver "2.3") )
  167.   (if (= ver 11) (set muiver "3.0") )  (if (= ver 12) (set muiver "3.1") )
  168.   (if (= ver 13) (set muiver "3.2") )  (if (= ver 14) (set muiver "3.3") )
  169.   (if (= ver 15) (set muiver "3.4") )  (if (= ver 15) (set muiver "3.5") )
  170.   (if (= ver 15) (set muiver "3.6") )  (if (= ver 15) (set muiver "3.7") )
  171.  )
  172. )
  173.  
  174. (if (< ver 11)   ( (message (cat #newermui muiver))   (set cpuPick 0) ))
  175. (if (< osver 39) ( (message (cat #need-os workbench #000used)) (set cpuPick 0) ))
  176.  
  177. ;********************************************************************
  178. ; Check for old & backup
  179. ;********************************************************************
  180. (if (exists (tackon where "AmTerm")) 
  181.   (
  182.       (set vernum1 (getversion (tackon where "AmTerm") ))
  183.       (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  184.       (set AmTerm_old (cat ver1 "." rev1))
  185.  
  186.       (set keeper  (askchoice (choices  (cat #backuptoXXX AmTerm_old "'")  #copyover)
  187.                      (prompt #AmTermfound)
  188.                  (help   #AmTermfound)
  189.                      (default 0)
  190.                )
  191.       )    
  192.  
  193.  
  194.       (if (= keeper 0)
  195.          (copyfiles (source (tackon where "AmTerm"))
  196.                      (dest where) 
  197.                      (infos)
  198.                      (newname (cat "AmTerm" AmTerm_old))
  199.          )
  200.       )          
  201.  
  202.       (set firsttime 1)
  203.     
  204.   )
  205. )
  206.  
  207. ;********************************************************************
  208. ; Copy over correct AmTerm and Icon if wanted
  209. ;********************************************************************
  210. (copyfiles (source "AmTerm") (dest where) (optional "nofail") )
  211.  
  212. (if (= firsttime 0)  (copyfiles (source "AmTerm.info") (dest where) (optional "nofail") ) )
  213.  
  214.  
  215. (if (= keeper 0) 
  216.   (
  217.    (set newicon (askchoice (choices #yesnewicon #nonewicon)
  218.                            (prompt #newicon)
  219.                        (help   #newicon)
  220.                            (default 0)
  221.             )
  222.    )
  223.   
  224.    (if (= newicon 0) 
  225.      (copyfiles (source "AmTerm.info") (dest where)  (optional "nofail") )
  226.    )
  227.  
  228.   )
  229. )
  230.  
  231.  
  232. ;********************************************************************
  233. ; Ask and and copy docs if wanted!
  234. ;********************************************************************
  235. (set nodocs 0)
  236.  
  237. (set docs (askoptions (choices "AmTerm.Changes")
  238.               (prompt #whatdocs)
  239.                       (help #whatdocs)
  240.                   (default 7)
  241.       )
  242. )
  243.  
  244.  
  245.  
  246. (if (<> docs 0)
  247.  (
  248.    (set docsdir (askdir (prompt #wheredocs)
  249.                (help   #wheredocs)
  250.                     (default where)
  251.                 )  
  252.    )
  253.  
  254.    (if (> (exists "AmTerm.Changes") 0) 
  255.     (if (IN docs 0) (copyfiles (source "AmTerm.Changes") (dest docsdir) (infos) (optional "nofail") ) )
  256.     ( (set #nofounddocs (cat #nofounddocs "\n\nAmTerm.Changes")) (set nodocs 1) )
  257.    )
  258.  
  259.    (if (= nodocs 1) (message #nofounddocs) ) 
  260.  
  261.  )
  262. )
  263.  
  264. ;********************************************************************
  265. ; Copy over #?.mpc|#?.mcc (Need to be in mui:libs/mui)
  266. ;********************************************************************
  267. (if (<> (getassign "mui") "")
  268. (
  269.   (if (> (exists "mui:libs/mui") 0) 
  270.    (
  271.     (working #updatingmuic)
  272.     (foreach "" "#?.mcp"
  273.         (copylib (source (tackon "" @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  274.     )
  275.     (foreach "" "#?.mcc"
  276.         (copylib (source (tackon "" @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  277.     )
  278.    )
  279.  
  280.    (message (cat #newermui muiver #nompc)) 
  281.   )
  282. )
  283. )
  284.  
  285. ;********************************************************************
  286. ; copy keyfile if there 
  287. ;********************************************************************
  288. (if (exists ("RegisterAmTerm"))
  289.  (copyfiles (source "RegisterAmTerm") (dest where)  (infos) (optional "nofail") )
  290. )
  291.  
  292. (if (> (exists "AmTerm.Key") 0)
  293.  (copyfiles (source "AmTerm.Key") (dest where) (infos) (optional "nofail") ) 
  294. )
  295.  
  296.  
  297. (if (> (exists "animation.txt") 0)
  298.  (copyfiles (source "animation.txt") (dest where) (infos) (optional "nofail") ) 
  299. )
  300.  
  301. ;********************************************************************
  302. ; Reg stuff 
  303. ;********************************************************************
  304. (if (exists"Register-AmTerm") 
  305.  (
  306.   (if (< (exists (tackon where "Register-AmTerm")) 2) (makedir (tackon where "Register-AmTerm") (infos)) )    
  307.   (if (exists "Register-AmTerm.info")
  308.     (copyfiles (source "Register-AmTerm.info") (dest where) (optional "nofail") ) 
  309.   )
  310.   (set whereR (tackon where "Register-AmTerm"))
  311.  
  312.  
  313.   (set whatreg  (askchoice (choices "English"  "Deutsch" "Francais" "Svenska" )
  314.                            (prompt "What Registration Files (Language) would you like to install?")
  315.                        (help   "What Registration Files (Language) would you like to install?")
  316.                         (default 0)
  317.                 )  
  318.   )
  319.  
  320.   (if (= whatreg 0) ((set basereg "English")  (set baseregTT "English") ) )
  321.   (if (= whatreg 1) ((set basereg "Deutsch")  (set baseregTT "Deutsch") ) )
  322.   (if (= whatreg 2) ((set basereg "Francais") (set baseregTT "French")  ) )
  323.   (if (= whatreg 3) ((set basereg "Svenska")  (set baseregTT "Svenska")  ) )
  324.  
  325.   (if (exists "Register-AmTerm/RegistrationUtility") 
  326.     (copyfiles (source "Register-AmTerm/RegistrationUtility")
  327.                (dest whereR) 
  328.     )
  329.   )
  330.  
  331.   (if (exists (tackon "Register-AmTerm" (cat "Regtool-" basereg ".info")) )
  332.     (copyfiles (source (tackon "Register-AmTerm" (cat "Regtool-" basereg ".info")) )
  333.                (dest whereR) 
  334.                (newname "RegistrationUtility.info")
  335.     )
  336.   )
  337.  
  338.   (if (exists (tackon "Register-AmTerm" (cat "Reg_" basereg ".guide")) ) 
  339.     (copyfiles (source (tackon "Register-AmTerm" (cat "Reg_" basereg ".guide")))
  340.                (dest whereR) 
  341.                (infos)
  342.     )
  343.   )
  344.  
  345.   (if (exists (tackon "Register-AmTerm" (cat "Reg_" basereg ".doc")) )
  346.     (copyfiles (source (tackon "Register-AmTerm" (cat "Reg_" basereg ".doc")))
  347.                (dest whereR) 
  348.                (infos)
  349.     )
  350.   )
  351.  
  352.  
  353.  )
  354. )
  355.  
  356. ;********************************************************************
  357. ; AmFTP Plug and End Bye 
  358. ;********************************************************************
  359. ;(message #ifyoulike)
  360. (exit #byebye)
  361.